/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 03 - 1987 / 03.04 Apr 87 / basic postscript / Copy of Downloader / Copy of Downloader.rsrc / POST_321

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 01 00 2f 50 72 65 66 69 | 78 57 61 6c 6b 7b 0a 20 |../Prefi|xWalk{. |
|00000010| 20 24 73 6f 72 74 20 62 | 65 67 69 6e 0a 20 20 63 | $sort b|egin.  c|
|00000020| 76 78 2f 21 62 74 20 65 | 78 63 68 20 64 65 66 20 |vx/!bt e|xch def |
|00000030| 62 70 77 61 6c 6b 20 0a | 20 20 65 6e 64 0a 7d 64 |bpwalk .|  end.}d|
|00000040| 65 66 0a 2f 50 6f 73 74 | 66 69 78 57 61 6c 6b 7b |ef./Post|fixWalk{|
|00000050| 0a 20 20 24 73 6f 72 74 | 20 62 65 67 69 6e 20 63 |.  $sort| begin c|
|00000060| 76 78 0a 20 20 2f 21 62 | 74 20 65 78 63 68 20 64 |vx.  /!b|t exch d|
|00000070| 65 66 0a 20 20 62 62 77 | 61 6c 6b 20 65 6e 64 0a |ef.  bbw|alk end.|
|00000080| 7d 64 65 66 0a 2f 46 6f | 6e 74 73 53 6f 72 74 26 |}def./Fo|ntsSort&|
|00000090| 50 72 69 6e 74 7b 0a 20 | 20 24 73 6f 72 74 20 62 |Print{. | $sort b|
|000000a0| 65 67 69 6e 0a 20 20 2f | 74 72 65 65 20 53 6f 72 |egin.  /|tree Sor|
|000000b0| 74 49 6e 69 74 20 64 65 | 66 0a 20 20 46 6f 6e 74 |tInit de|f.  Font|
|000000c0| 44 69 72 65 63 74 6f 72 | 79 7b 0a 20 20 20 20 70 |Director|y{.    p|
|000000d0| 6f 70 20 73 74 72 20 63 | 76 73 20 64 75 70 20 30 |op str c|vs dup 0|
|000000e0| 20 67 65 74 20 64 75 70 | 20 36 35 20 6c 74 20 65 | get dup| 65 lt e|
|000000f0| 78 63 68 20 39 30 20 67 | 74 20 6f 72 0a 20 20 20 |xch 90 g|t or.   |
|00000100| 20 7b 70 6f 70 7d 20 7b | 64 75 70 20 6c 65 6e 67 | {pop} {|dup leng|
|00000110| 74 68 20 73 74 72 69 6e | 67 20 63 6f 70 79 20 74 |th strin|g copy t|
|00000120| 72 65 65 20 65 78 63 68 | 20 49 6e 73 65 72 74 7d |ree exch| Insert}|
|00000130| 20 69 66 65 6c 73 65 0a | 20 20 7d 66 6f 72 61 6c | ifelse.|  }foral|
|00000140| 6c 0a 20 20 74 72 65 65 | 20 7b 63 74 65 78 74 7d |l.  tree| {ctext}|
|00000150| 20 50 72 65 66 69 78 57 | 61 6c 6b 20 65 6e 64 0a | PrefixW|alk end.|
|00000160| 7d 64 65 66 0a          |                         |}def.   |        |
+--------+-------------------------+-------------------------+--------+--------+